5 POKE808,254
10 POKE53265,11
20 POKE53280,5:POKE53281,5:POKE646,6
30 FORA=832TO832+34:READB:POKEA,B:NEXTA
40 DATA248,0,0,255,0,0,241,128,00,248,0,0,236,0,0,102,0,0,115,0,0,49,192,0,24
50 DATA224,0,0,120,0,0,32,0,0,32
60 POKE53269,1:POKE53248,160:POKE53249,160:POKE2040,13
70 SYS4571
80 PRINTCHR$(147)
90 PRINT" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
100 PRINT" [194]      USER - PORT MANAGER V1.0     [146][194]"
110 PRINT" [171][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][179]"
120 PRINT" [194]PB0[194]PB1[194]PB2[194]PB3[194]PB4[194]PB5[194]PB6[194]PB7[194]PA2[194]"
130 PRINT" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]";
140 PRINT:PRINT" [194] C [194] D [194] E [194] F [194] H [194] J [194] K [194] L [194] M [194]"
150 PRINT" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
160 PRINT" [171][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][179]"
170 PRINT" [194]        AUSGANG ODER EINGANG       [146][194]"
180 PRINT" [171][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][179]"
190 PRINT" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
200 PRINT" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
210 PRINT" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
220 PRINT" [171][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][179]"
230 PRINT" [194]            LOW ODER HIGH          [146][194]"
240 PRINT" [171][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][178][195][195][195][179]"
250 PRINT" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
260 PRINT" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
270 PRINT" [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]   [194]"
280 PRINT" [173][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][177][195][195][195][189]"
290 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
300 PRINT" CODED IN 1998 BY MR.TEC FOR TIGERDISK[146]"
310 FORA=0TO7
320 POKE214,12:POKE211,2+A*4:SYS58732
330 IFPEEK(56579)AND2^ATHENPRINT"AUS":NEXTA:GOTO350
340 PRINT"EIN":NEXTA
350 POKE214,12:POKE211,34:SYS58732
360 IF(PEEK(56578)AND4)THENPRINT"AUS":GOTO380
370 PRINT"EIN"
380 FORB=0TO7
390 IFC=0ANDPEEK(56320)AND16THEN410
400 B=7:NEXTB:GOSUB500:GOTO480
410 POKE214,18:POKE211,2+B*4:SYS58732
420 IF(PEEK(56577)AND2^B)THENPRINT"HIG":NEXTB:GOTO440
430 PRINT"LOW":NEXTB
440 POKE214,18:POKE211,34:SYS58732
450 IF(PEEK(56576)AND4)THENPRINT"HIG":GOTO480
460 PRINT"LOW"
470 POKE53265,27
480 IFPEEK(56320)AND16THEN380
490 GOSUB500:GOTO480
500 X=PEEK(53248):Y=PEEK(53249)
510 IFPEEK(53264)=1THEN660
520 IFX>37ANDX<61THENP=0
530 IFX>67ANDX<95THENP=1
540 IFX>101ANDX<127THENP=2
550 IFX>133ANDX<159THENP=3
560 IFX>165ANDX<191THENP=4
570 IFX>197ANDX<223THENP=5
580 IFX>229ANDX<255THENP=6
590 IFY>183THEN630
600 POKE214,12:POKE211,2+P*4:SYS58732
610 IF(PEEK(56579)AND2^P)THENPOKE56579,PEEK(56579)AND255-2^P:PRINT"EIN":RETURN
620 POKE56579,(PEEK(56579)AND255)OR2^P:PRINT"AUS":RETURN
630 POKE214,18:POKE211,2+P*4:SYS58732
640 IF(PEEK(56577)AND2^P)THENPOKE56577,PEEK(56577)AND255-2^P:PRINT"LOW":RETURN
650 POKE56577,(PEEK(56577)AND255)OR2^P:PRINT"HIG":RETURN
660 IFX>6ANDX<32THENP=7:GOTO590
670 IFY>184THEN710
680 POKE214,12:POKE211,34:SYS58732
690 IFPEEK(56578)AND4THENPOKE56578,PEEK(56578)AND251:PRINT"EIN":RETURN
700 POKE56578,(PEEK(56578)AND255)OR4:PRINT"AUS":RETURN
710 POKE214,18:POKE211,34:SYS58732
720 IF(PEEK(56576)AND4)THENPOKE56576,PEEK(56576)AND251:PRINT"LOW":RETURN
730 POKE56576,(PEEK(56576)AND255)OR4:PRINT"HIG":RETURN